home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / grafik beispiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  455b  |  25 lines
  1. 1 rem ************************
  2. 2 rem *** deklarationsteil ***
  3. 5 (NULL)
  4. 10 (NULL)"screens",8
  5. 35 (NULL)"plot",8
  6. 40 (NULL)"line",8
  7. 90 end
  8. 97 rem ******************
  9. 98 rem *** basic-teil ***
  10. 100 (NULL)0,0:(NULL)0,1:(NULL)1,0:(NULL)
  11. 110 (NULL)100,100,1
  12. 120 (NULL) 10,0,10,199,1
  13. 121 (NULL) 309,0,309,199,1
  14. 122 (NULL) 0,10,319,10,1
  15. 123 (NULL) 0,189,319,189,1
  16. 200 fora=0to6.28step.05
  17. 220 x1=160+sin(2*a)*160
  18. 222 y1=100+cos(a)*sin(a)*100
  19. 230 x2=160+sin(a)*160
  20. 232 y2=100+sin(2*a)*50+cos(a)*50
  21. 240 (NULL) x1,y1,x2,y2,1
  22. 250 nexta
  23. 300 wait198,255
  24. 310 (NULL)
  25.